home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / LANG / ASSEMBLER / EXTASM / Examples / MODULE < prev    next >
Text File  |  1993-09-29  |  1KB  |  51 lines

  1. ; ------------------------------------------------------------------------------------
  2. ; -
  3. ; - module shell © Tor Houghton
  4. ; -
  5. ; ------------------------------------------------------------------------------------
  6.  
  7. #type       &FFA
  8. #base       0
  9.  
  10. .module_header
  11.  
  12.    dcd      &00000000
  13.    dcd      initialise              ; risc os calls this first
  14.    dcd      closedown               ; risc os calls this when module is dying
  15.    dcd      handler_service_call    ; if a module service call is sent, do this
  16.    dcd      string_title            ; module title
  17.    dcd      string_help             ; module help string (e.g. *help 'module')
  18.    dcd      &00000000
  19.  
  20. .string_title
  21.  
  22.    dcb      "Test",0
  23.    align
  24.  
  25. .string_help
  26.  
  27.    dcb      "Test ",9,"0.00 (28 Jul 1993) © 1993 Tor Houghton / ArcEmpire",0
  28.    align
  29.  
  30. .initialise
  31.  
  32.    stmfd    r13!,{r0-r12,r14}
  33.  
  34.    ; --- code here
  35.  
  36.    ldmfd    r13!,{r0-r12,pc}^
  37.  
  38. .closedown
  39.  
  40.    stmfd    r13!,{r0-r12,r14}
  41.  
  42.    ; --- code here
  43.  
  44.    ldmfd    r13!,{r0-r12,pc}^
  45.  
  46. .handler_service_call
  47.  
  48.    cmp      r1,#&27                 ; has a reset occurred?
  49.    beq      initialise              ; yes, restart the module again
  50.    mov      pc,r14
  51.